inherited frmNotes: TfrmNotes
  Caption = #1047#1072#1084#1077#1090#1082#1080
  OldCreateOrder = True
  Position = poDefault
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  inherited dbgToolWnd: TDBGridEh
    ImeMode = imDisable
    OnDblClick = aEditExecute
    Columns = <
      item
        EditButtons = <>
        FieldName = 'ID'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'NOTES'
        Footers = <>
        Width = 200
      end>
  end
  inherited PropStorageEh1: TPropStorageEh
    Section = 'frmNotes'
  end
  inherited dsToolWnd: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE RST_NOTES'
      'SET '
      '    NOTES = :NOTES,'
      '    PRIOR = :PRIOR'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    RST_NOTES'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO RST_NOTES('
      '    NOTES,'
      '    PRIOR'
      ')'
      'VALUES('
      '    :NOTES,'
      '    :PRIOR'
      ')')
    RefreshSQL.Strings = (
      'select'
      '  rn.id,'
      '  rn.notes,'
      '  rn.notedate,'
      '  rn.prior'
      'from rst_notes rn'
      '  join user_list su on su.id = rn.user_id'
      '    and su.login = upper(current_user)'
      'where(  rn.user_id = 0'
      '     ) and (     RN.ID = :OLD_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'select'
      '  rn.id,'
      '  rn.notes,'
      '  rn.notedate,'
      '  rn.prior'
      'from rst_notes rn'
      '  join user_list su on su.id = rn.user_id'
      '    and upper(su.login) = upper(current_user)'
      'order by 4 desc, 3 desc')
    object dsToolWndID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsToolWndNOTES: TFIBStringField
      FieldName = 'NOTES'
      Size = 255
      EmptyStrToNull = True
    end
    object dsToolWndNOTEDATE: TFIBDateTimeField
      FieldName = 'NOTEDATE'
    end
    object dsToolWndPRIOR: TFIBIntegerField
      FieldName = 'PRIOR'
    end
  end
  inherited tToolWnd: TTimer
    Interval = 1000
  end
  inherited ActionList1: TActionList
    Top = 22
    inherited aAdd: TAction
      OnExecute = aAddExecute
    end
    inherited aEdit: TAction
      OnExecute = aEditExecute
    end
    inherited aDel: TAction
      OnExecute = aDelExecute
    end
  end
end
